Profile of (eval 163)[CGI/Compile.pm:12]

Filename	(eval 163)[/usr/share/perl5/CGI/Compile.pm:12]
Statements	Executed 13 statements in 440µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	67µs	102µs	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@2

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1	1	3µs			package CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;
2	12	437µs	11	523µs	# spent 102µs (67+35) within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@2 which was called: # once (67µs+35µs) by CGI::Compile::_eval at line 2 CGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, '<', \$data;}local @SIG{keys %SIG} = do { no warnings 'uninitialized'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] }; # spent 195µs making 3 calls to File::pushd::pushd, avg 65µs/call # spent 155µs making 3 calls to CGI::initialize_globals, avg 52µs/call # spent 102µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@2 # spent 36µs making 3 calls to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:open, avg 12µs/call # spent 35µs making 1 call to warnings::unimport
3					#line 1 /home/vagrant/kohaclone/plack.pl
4					#!/usr/bin/perl
5
6					use Modern::Perl;
7					use CGI;
8					use C4::Output;
9					use Koha::Libraries;
10					my $libraries = Koha::Libraries->search;
11
12					my $query = CGI->new;
13					print $query->header({
14					type => 'text/html',
15					status => '200 OK',
16					charset => 'UTF-8',
17					Pragma => 'no-cache',
18					});
19					print "<html><body>Hello</body></html>";
20
21					#my $cookie = undef;
22					#output_html_with_http_headers $query, $cookie, "<html><body>Hello</body></html>";
23
24					};
25					my $self = shift;
26					my $exit_val = unpack('C', pack('C', sprintf('%.0f', $rv)));
27					if ($@) {
28					die $@ unless (
29					ref($@) eq 'ARRAY' and
30					$@->[0] eq "EXIT\n"
31					);
32					my $exit_param = unpack('C', pack('C', sprintf('%.0f', $@->[1])));
33
34					if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {
35					die "exited nonzero: $exit_param";
36					}
37
38					$exit_val = $exit_param;
39					}
40
41					return $exit_val;
42					};
43					;